home *** CD-ROM | disk | FTP | other *** search
/ Software USA 4 #8 / Software USA Volume 4.08.iso / mac / LifeStyles / ComicBase / ComicBase.sea / ComicBase 3 Mac Demo / ComicBase 3 Demo.rsrc / LENS_131_About ComicBase < prev    next >
Text File  |  1998-02-04  |  7KB  |  115 lines
  1. ItemType: WIND
  2. Rect: 351,318,801,552
  3. Style: Dialog
  4. HasTitleBar: FALSE
  5. HasZoomBox: FALSE
  6. Name: About ComicBase
  7. IdleDelay: 8
  8. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue¬Global scrollStartupCount¬global gWindowPositions¬Global gCapeAnimationFrame¬global cs¬global endScroll¬¬---------------------¬-- This is window #1¬---------------------¬¬if objValue="Open" then ¬  -- Restore old window position¬  put OldWindowPosition(1) into windowRect¬  if windowRect = empty then centerWindow wdName¬  else wsSet wdID,"0","Rect",windowRect¬  ¬  put "CreditsText_S" & "croll:" into cs¬  ¬  wsSet wdID,"9","Name", ""¬  if word 1 of wsGet (wdID, "RegName","Text") = empty then¬    wsSet wdID,"RegisteredTo","Text","Demo Version"¬    wsSet wdID,"RegisteredTo","TextAlign", "Center"¬    ¬  else¬    wsSet wdID,"RegisteredTo","Text","Registered to:"¬    wsSet wdID,"RegisteredTo","TextAlign", "Left"¬  end if¬  ¬  put 5 into scrollStartupCount¬  wsSet "About ComicBase","CreditsText","Scroll", "145"¬  put wsGet( "About ComicBase","CreditsText","Text") into creditLines¬  put the number of lines of creditLines * 12 - 30   into endScroll¬  wsSet "About ComicBase","0","IdleDelay", "8"¬  ¬else if objValue="Close" then ¬  -- save the window position¬  put "1" & tab & wdName & tab & wsGet(wdID,"0","Rect") into line 1 of gWindowPositions¬  ¬else if objValue = "Idle" then¬  if scrollStartupCount > 0 then ¬    subtract 1 from scrollStartupCount¬  else if scrollStartupCount = 0 then¬    play "Symphonic"¬    repeat with x = 1 to 4¬      wsSet "About ComicBase","9","Name","Phase In" && X¬      wsSend "About ComicBase","9","DoUpdate"¬      wait 10 ticks¬    end repeat¬    ¬    put -1 into scrollStartupCount¬    wsSet "About ComicBase","9","Name","Cape Animation 0"¬    wsSend "About ComicBase","9","DoUpdate"¬    wait 120 ticks¬  else¬    put wsget(wdID,"creditsText","Scroll") + 2 into temp¬    if temp > endScroll then put 0 into temp¬    add 1 to gCapeAnimationFrame¬    if gCapeAnimationFrame > 8 then put 1 into gCapeAnimationFrame¬    wsset wdID,"0","Properties",cs & temp & return & "i9_Name:Cape Animation" && gCapeAnimationFrame & return¬  end if¬end if¬¬--end windowEvent¬
  9. Params: i5_Text¬i7_Text¬i3_Text
  10.  
  11. ItemType: BOX
  12. Rect: 12,12,168,223
  13. BlackColor: -26215,-26215,-26215
  14. WhiteColor: -8739,-8739,-8739
  15. Fill: White
  16. Script: --on mouseDown  wdID,wdName,objNo,objName,objValue¬wsSend "About ComicBase","0","Close"¬¬--end mouseDown
  17.  
  18. ItemType: BOX
  19. Rect: 13,13,169,224
  20. Pen: White
  21.  
  22. ItemType: TEXT
  23. Rect: 20,16,160,55
  24. TextFont: Geneva
  25. TextSize: 9
  26. AutoSize: FALSE
  27. Name: ProductName
  28. BlackColor: 0,0,-30584
  29. WhiteColor: -8739,-8739,-8739
  30. TextAlign: Center
  31. Text: The ComicBase™ Encyclopedia of Comics¬by Peter “Doc” Bickford
  32. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬wsSend "About ComicBase","0","Close"¬--end closeField
  33.  
  34. ItemType: TEXT
  35. Rect: 20,171,102,183
  36. TextFont: Geneva
  37. TextSize: 9
  38. Name: RegisteredTo
  39. WhiteColor: -8739,-8739,-8739
  40. TextStyle: Bold
  41. Text: Registered to:
  42. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬wsSend "About ComicBase","0","Close"¬--end closeField
  43.  
  44. ItemType: TEXT
  45. Rect: 20,184,160,220
  46. TextFont: Geneva
  47. TextSize: 9
  48. Name: RegName
  49. WhiteColor: -8739,-8739,-8739
  50. Text: Peter Bickford¬Human Computing¬S/N: 
  51. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬wsSend "About ComicBase","0","Close"¬--end closeField
  52.  
  53. ItemType: TEXT
  54. Rect: 20,109,160,162
  55. TextFont: Geneva
  56. TextSize: 9
  57. AutoSize: FALSE
  58. Name: AddressInfo
  59. BlackColor: 0,0,-30584
  60. WhiteColor: -8739,-8739,-8739
  61. TextAlign: Center
  62. Text: Human Computing¬4509 Thistle Drive¬San Jose, CA 95136-2014¬(408) 266-6883
  63. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬wsSend "About ComicBase","0","Close"¬--end closeField
  64.  
  65. ItemType: TEXT
  66. Rect: 16,57,164,102
  67. TextFont: Geneva
  68. TextSize: 9
  69. AutoSize: FALSE
  70. Name: VersionInfo
  71. BlackColor: 0,0,-30584
  72. WhiteColor: -8739,-8739,-8739
  73. TextAlign: Center
  74. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬wsSend "About ComicBase","0","Close"¬--end closeField
  75.  
  76. ItemType: TEXT
  77. Rect: 180,12,467,180
  78. TextFont: Geneva
  79. TextSize: 9
  80. AutoSize: FALSE
  81. Name: CreditsText
  82. Scrolling: TRUE
  83. Text: ¬¬¬¬¬¬¬¬¬¬¬¬¬Documentation: ¬   Carolyn Bickford¬¬Icons & Animations:¬   Matthew Holloway¬¬Cover Artwork:¬   Kent Bash¬   Scott Benefiel¬¬Indexing and Research:¬   Peter Bickford¬   Anobel Odisho¬¬Title Descriptions:¬   Loretta Beavers¬   Peter Bickford¬   Carolyn Bickford¬   Stephen Drennan¬   Tom Galloway¬   George Haberberger¬   Sean Medlock¬   Dan Ostrov¬   David Roel¬   Rob Salkowitz¬   Chuck Satterlee¬   Joseph Self¬   Keith Stattenfield¬¬Editor:¬   Carolyn Bickford¬¬Manga Consultant:¬   Loretta Beavers¬¬Special thanks to:¬   Valerie Atlas¬   Brian’s Books¬   Capital City Comics¬   C.B. Cebulski¬   Oliver Chin¬   Dorothy Crouch¬   Mary Deignan¬   Gary Gittelsohn¬   Matthew Holloway¬   Rick Johnstone¬   Lee’s Comics¬   Chad Magendanz¬   Brian Molyneaux¬   John Nairn¬   Alan Pabst¬   Mik Pascale¬   Linda Pickthorne¬   Albert Price¬   Keith Stattenfield¬   Maggie Thompson¬¬And for unflagging love and support:¬   Carolyn Bickford¬¬Unless noted otherwise, all logos and artwork included in ComicBase, and the distinctive likenesses of characters shown are © and ™ of the publisher listed. ¬¬Title artwork may not be distributed in any form without the express written consent of the publisher/copyright holder.¬¬This product uses copyrighted resources from Windowscript™ licensed from Heizer Software. These resources may not be removed or modified. Heizer Software makes no warranty of any kind to users of this product. Inquiries: 510-943-7667 Fax: 510-943-6882. ¬¬Windowscript ©1990-92 Leonard Buck. All Rights Reserved. WindowScript is a trademark of Heizer Software.¬¬This program also includes external commands created and copyrighted by Boojum Computer Systems, Inc. These routines are not in the public domain. If you use these routines in your own stacks, you must first purchase these routines for $25 from:¬¬             Boojum Computer Systems, Inc.¬             15004 Donna Drive¬             Silver Spring, MD 20905, USA¬             (301) 989-9708¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬
  84.  
  85. Inset: 0
  86. Script: --on mouseDown  wdID,wdName,objNo,objName,objValue¬wsSend "About ComicBase","0","Close"¬--end mouseDown
  87.  
  88. ItemType: ICON
  89. Rect: 179,191,211,223
  90. Name: Cape Animation 2
  91.  
  92. ItemType: LINE
  93. Rect: 13,167,168,168
  94. BlackColor: -26215,-26215,-26215
  95. Name: Cape Animation 4
  96. Script: --on mouseDown  wdID,wdName,objNo,objName,objValue¬wsSend "About ComicBase","0","Close"¬--end mouseDown
  97.  
  98. ItemType: PUSH
  99. Rect: 367,203,439,223
  100. Name: OK
  101. DefaultItem: TRUE
  102. CancelItem: TRUE
  103. AutoClose: TRUE
  104.  
  105. ItemType: LINE
  106. Rect: 13,168,166,169
  107. Pen: White
  108.  
  109. ItemType: LINE
  110. Rect: 167,12,168,222
  111. BlackColor: -26215,-26215,-26215
  112.  
  113. ItemType: LINE
  114. Rect: 12,222,167,223
  115. BlackColor: -26215,-26215,-26215